home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)sd.d64 / wubics cube (.txt) < prev    next >
Commodore BASIC  |  2009-02-04  |  7KB  |  217 lines
  1. 10 POKE 53281,0:POKE 53280,0
  2. 20 IF PEEK(52128)=1 THEN GOTO 80
  3. 30 IF LAST=1 THEN GOTO 70
  4. 40 PRINT"[147]"
  5. 50 PRINT"PLEASE WAIT LOADING!!!!"
  6. 60 LAST=1:FOR X=1 TO1000:NEXT:LOAD "MWUBIC",8,1
  7. 70 POKE 52128,1
  8. 80 POKE 52112,0:GOSUB 1140
  9. 90 IF S$<>"Y"GOTO 110
  10. 100 GOSUB 1440
  11. 110 GOSUB 940
  12. 120 FOR Y=1 TO 9
  13. 130 POKE 51984+Y,5
  14. 140 POKE 52000+Y,2
  15. 150 POKE 52016+Y,1
  16. 160 POKE 52032+Y,7
  17. 170 POKE 52048+Y,8
  18. 180 POKE 52064+Y,6
  19. 190 NEXT Y
  20. 200 R$="990000"
  21. 210 FL=50277:FR=50436:CU=52584:LU=50595:MU=50759:RU=50860:CD=52592:LD=51024
  22. 220 MD=51188:RD=51289:CR=51453:TR=51458:MR=51620:BR=51719:CL=52219:TL=52224:G=1
  23. 230 ML=52386:BL=52485:Q=-1:TI$="000000"
  24. 240 PRINT"   TYPE (S) IF YOU WANT IT TO SCRAMBLE "
  25. 250 GOSUB 1940
  26. 260 SYS 49169
  27. 270 GET A$:IF G=1 THENPRINT"      [160]           ":GOTO 310
  28. 280 IF F=1 THEN LET TI$=G$
  29. 290 PRINT" TIME  "MID$(TI$,3,2)":"RIGHT$(TI$,2)
  30. 300 GOSUB 2020
  31. 310 GOSUB 1940
  32. 320 IF M=1 THEN GOSUB1980
  33. 330 IF A$="S"THEN W1=1:SCR=0:G=1:GOTO 490
  34. 340 IF A$=" "ANDW1=1THEN W1=0:GOTO 640
  35. 350 IF W1=1 THEN GOTO 490
  36. 360 IF A$="*"THEN GOTO 670
  37. 370 IF A$="" THEN 270
  38. 380 PRINT"                  [145]"
  39. 390 IF A$="[198]" THEN POKE 52112,1
  40. 400 IF A$="[211]" THEN POKE 52112,0
  41. 410 PRINT"                   [145]"
  42. 420 B=5:GET B$:IF B$="" GOTO 410
  43. 430 IF B$="U" THEN B=1
  44. 440 IF B$="D" THEN B=2
  45. 450 IF B$="R" THEN B=3
  46. 460 IF B$="L" THEN B=4
  47. 470 IF B=5 THEN GOTO 620
  48. 480 GOTO 540
  49. 490 W1=1:B=INT(RND(1)*18+1):G$="000000"
  50. 500 SCR=SCR+1:IF SCR>30 THEN PRINT" READY!!":GOSUB 1940
  51. 510 M=0:IF SCR>30THENPRINT"    HIT SPACE BAR TO STOP THE CUBE     ":GOSUB 1940
  52. 520 IF B=18 GOTO 890
  53. 530 ONBGOTO700,710,730,740,750,760,780,790,810,820,840,820,900,910,920,930,880
  54. 540 IF F=1 THEN LET M=1:G=1
  55. 550 IF A$="L" GOTO 690
  56. 560 IF A$="M" GOTO 720
  57. 570 IF A$="R" GOTO 770
  58. 580 IF A$="T" GOTO 800
  59. 590 IF A$="B" GOTO 830
  60. 600 IF A$="C" GOTO 860
  61. 610 IF A$="F" GOTO 870
  62. 620 IF Q=1 THEN A$=B$:Q=-1*Q:GOTO 330
  63. 630 GOSUB 1950:A$=B$:Q=-1*Q:GOTO 330
  64. 640 PRINT"          TYPE (*) TO FIX THE CUBE       ":GOSUB 1940:G=0
  65. 650 PRINT"                [145]"
  66. 660 TI$="000000":GOTO 270
  67. 670 PRINT"     I  SEE  THAT  YOUR  CHEATING!!!!!":GOSUB 1940:G=1
  68. 680 FOR X=1 TO1500:NEXT:GOTO 120
  69. 690 ON B GOTO 700,710,620,620
  70. 700 PRINT"LU  LEFT UP     [145]":SYS LU:GOTO 270
  71. 710 PRINT"LD  LEFT DOWN   [145]":SYS LD:GOTO 270
  72. 720 ON B GOTO 730,740,750,760
  73. 730 PRINT"MU  MIDDLE UP   [145]":SYS MU:GOTO 270
  74. 740 PRINT"MD  MIDDLE DOWN [145]":SYS MD:GOTO 270
  75. 750 PRINT"MR  MIDDLE RIGHT[145]":SYS MR:GOTO 270
  76. 760 PRINT"ML  MIDDLE LEFT [145]":SYS ML:GOTO 270
  77. 770 ON B GOTO 780,790,620,620
  78. 780 PRINT"RU  RIGHT UP    [145]":SYS RU:GOTO 270
  79. 790 PRINT"RD  RIGHT DOWN  [145]":SYS RD:GOTO 270
  80. 800 ON B GOTO 620,620,810,820
  81. 810 PRINT"TR  TOP RIGHT   [145]":SYS TR:GOTO 270
  82. 820 PRINT"TL  TOP LEFT    [145]":SYS TL:GOTO 270
  83. 830 ON B GOTO 620,620,840,850
  84. 840 PRINT"BR  BOTTOM RIGHT[145]":SYS BR:GOTO 270
  85. 850 PRINT"BL  BOTTOM LEFT [145]":SYS BL:GOTO 270
  86. 860 ON B GOTO 900,910,920,930
  87. 870 ON B GOTO 620,620,890,880
  88. 880 PRINT"FL  FRONT LEFT  [145]":SYSFL:GOTO 270
  89. 890 PRINT"FR  FRONT RIGHT [145]":SYSFR:GOTO 270
  90. 900 PRINT"CU  CUBE UP     [145]":SYSCU:GOTO 270
  91. 910 PRINT"CD  CUBE DOWN   [145]":SYSCD:GOTO 270
  92. 920 PRINT"CR  CUBE RIGHT  [145]":SYSCR:GOTO 270
  93. 930 PRINT"CL  CUBE LEFT   [145]":SYSCL:GOTO 270
  94. 940 PRINT"[147]             [169]   [146][169][169]   [146][169][169]   [146][169][169]"
  95. 950 PRINT"            [169]   [146][169][169]   [146][169][169]   [146][169][169] "
  96. 960 PRINT"           [169]   [146][169][169]   [146][169][169]   [146][169][169]  [146] "
  97. 970 PRINT"          [169]   [146][169][169]   [146][169][169]   [146][169][169]  [146][169] "
  98. 980 PRINT"         [169]   [146][169][169]   [146][169][169]   [146][169][169]  [146][169][169]"
  99. 990 PRINT"        [169]   [146][169][169]   [146][169][169]   [146][169][169]  [146][169][169] "
  100. 1000 PRINT"            [146]     [146]     [146]   [146][169][169]  "
  101. 1010 PRINT"            [146]     [146]     [146]  [146][169][169]  [146][169]"
  102. 1020 PRINT"            [146]     [146]     [146] [169][169]  [146][169][169]"
  103. 1030 PRINT"                       [169]  [146][169][169] "
  104. 1040 PRINT"            [146]     [146]     [146]   [146][169][169]  "
  105. 1050 PRINT"            [146]     [146]     [146]  [146][169][169]  [146][169]"
  106. 1060 PRINT"            [146]     [146]     [146] [169][169]  [146][169]"
  107. 1070 PRINT"                      [146] [169]  [146][169]"
  108. 1080 PRINT"            [146]     [146]     [146]   [146][169]"
  109. 1090 PRINT"            [146]     [146]     [146]  [146][169]"
  110. 1100 PRINT"            [146]     [146]     [146] [169]"
  111. 1110 FOR X=1 TO 9
  112. 1120 READ Y:POKE 1000+Y,160:POKE 1001+Y,160:POKE 1002+Y,160 :NEXT
  113. 1130 RETURN
  114. 1140 PRINT"[147]":POKE 53281,0
  115. 1150 FOR X=1 TO 9:READ F:NEXT
  116. 1160 FOR X=0TO164 :READ M:SYS49152:POKE 1024+M,PEEK(52992+X):SYS 49152:SYS 49152
  117. 1170 GETS$:IF S$<>""THEN GOTO 1210
  118. 1180 NEXT X
  119. 1190 PRINT"WOULD YOU LIKE INSTRUCTIONS (Y) OR (N)
  120. 1200 [161] S$:[158]49152:[158] 49152:[139] S$[178]""[167] [137] 1200
  121. 1210 [140]:[142]
  122. 1220 [131] 256,266,296,306,336,346,775,815,855
  123. 1230 [131] 82,87,90,93,96,97,98,99,102
  124. 1240 [131] 103,104,105,108,109,110,111,113
  125. 1250 [131] 115,116,117,122,127,130,133,136
  126. 1260 [131] 139,143,144,148,151,155,162,164
  127. 1270 [131] 165,167,170,173,176,177,178,179
  128. 1280 [131] 183,184,188,195,196,197,200,202
  129. 1290 [131] 203,204,205,206,207,210,213,216
  130. 1300 [131] 219,223,224,228,231,237,242,243
  131. 1310 [131] 246,247,250,251,252,253,256,257
  132. 1320 [131] 258,259,262,263,264,265,268,269
  133. 1330 [131] 270,271,275,276,277
  134. 1340 [131]200,369,370,371,372,375,378,381,382
  135. 1350 [131] 383,384,387,388,389,390,409,412
  136. 1360 [131] 415,418,421,424,427,449,455,458
  137. 1370 [131] 461,462,463,464,467,468,469,489
  138. 1380 [131] 492,495,498,501,504,507,526,529
  139. 1390 [131] 530,531,532,535,536,537,538,541
  140. 1400 [131] 542,543,544,547,548,549,550
  141. 1410 [131] 658,659,735,736,737,739,740,741,742
  142. 1420 [131] 743,744,814,815,816,817,818,819
  143. 1430 [131] 820,821,823,824,825,826
  144. 1440 [153]"LOAD        THE WHOLE CUBE CAN MOVE"
  145. 1450 [153]"        UP, DOWN, RIGHT OR LEFT"
  146. 1460 [153]
  147. 1470 [153]"     CU=CUBE UP        CD=CUBE DOWN "
  148. 1480 [153]"     CR=CUBE RIGHT     CL=CUBE LEFT "
  149. 1490 [153]
  150. 1500 [153]" THE RIGHT SECTION, MIDDLE SECTION, AND "
  151. 1510 [153]" LEFT SECTION WILL ONLY MOVE UP AND DOWN"
  152. 1520 [153]
  153. 1530 [153]"   RU OR RD= RIGHT UP OR RIGHT DOWN   "
  154. 1540 [153]"   MU OR MD= MIDDLE UP OR MIDDLE DOWN "
  155. 1550 [153]"   LU OR LD= LEFT UP OR LEFT DOWN     "
  156. 1560 [153] "     PRESS SPACE BAR TO CONTINUE  "
  157. 1570 [161] S$:[139] S$[178]""[167] [137] 1570
  158. 1580 [153]"LOAD"
  159. 1590 [153]"     THE TOP LAYER, MIDDLE LAYER,"
  160. 1600 [153]"    AND BOTTOM LAYER CAN ONLY MOVE"
  161. 1610 [153]"    RIGHT OR LEFT.  THE FRONT WILL"
  162. 1620 [153]"    ALSO MOVE ONLY RIGHT OR LEFT."
  163. 1630 [153]
  164. 1640 [153]"CLOSE TR OR TL= TOP RIGHT OR TOP LEFT "
  165. 1650 [153]"  MR OR ML= MIDDLE RIGHT OR MIDDLE LEFT"
  166. 1660 [153]"  BR OR BL= BOTTOM RIGHT OR BOTTOM LEFT"
  167. 1670 [153]"  FR OR FL= FRONT RIGHT OR FRONT LEFT  "  "
  168. 1680 PRINT:PRINT "        TO HAVE THE CUBE SCRAMBLE "
  169. 1690 PRINT"           ITSELF TYPE (S).
  170. 1700 [153]"   TO STOP THE CUBE HIT THE SPACE BAR"
  171. 1710 [153] "      PRESS SPACE BAR TO CONTINUE  "
  172. 1720 [161] S$:[139] S$[178]""[167] [137] 1720
  173. 1730 [153]"LOAD"
  174. 1740 [153]:[153] "THE CUBE HAS TWO SPEEDS THAT IT CAN MOVE"
  175. 1750 [153] "   SHIFTWAIT(S) FOR SLOW OR
  176. 1760 PRINT "   SHIFT[146](F) FOR FAST
  177. 1770 [153] " YOU CAN CHANGE IT AT ANY TIME JUST TYPE"
  178. 1780 [153] " THE ONE YOU WANT, IT WILL START SLOW."
  179. 1790 [153] "        PRESS SPACE BAR TO CONTINUE  "
  180. 1800 [161] S$:[139] S$[178]""[167] [137] 1800
  181. 1810 [153]"LOAD"
  182. 1820 [153] "         AS IT IS SCRAMBLING"
  183. 1830 [153]"      WATCH THE PRINTED COMMANDS":[153]"      IT WILL HELP YOU BEC";
  184. 1840 [153]"OME MORE ":[153]"      FAMILIAR WITH ITS COMMANDS"
  185. 1850 [153]"          GOOD LUCK!!!!!"
  186. 1860 [153]"   AS LAST RESORT TYPE (*) TO SOLVE THE CUBE"
  187. 1870 [153] "  IF YOU WOULD LIKE TO REVIEW THE "
  188. 1880 [153] " INSTRUCTIONS AGAIN, TYPE (A)
  189. 1890 PRINT
  190. 1900 PRINT "    PRESS SPACE BAR TO START YOUR FUN"
  191. 1910 GET S$:IF S$=""THEN GOTO 1910
  192. 1920 IF S$="A" THEN GOTO 1440
  193. 1930 RETURN
  194. 1940 PRINT"":RETURN
  195. 1950 M=1:IF A$=" "ORB$=" "THEN RETURN
  196. 1960 PRINT"       WHAT KIND OF MOVE IS "A$;B$"        ":M=1
  197. 1970 GOSUB 1940:RETURN
  198. 1980 M=0
  199. 1990 IFTI$<>"000000"THENPRINT"       TYPE (*) TO FIX THE CUBE       ":GOTO2010
  200. 2000 PRINT"   TYPE (S) IF YOU WANT IT TO SCRAMBLE"
  201. 2010 GOSUB 1940:RETURN
  202. 2020 Z=0:FOR X=2 TO 9
  203. 2030 IF PEEK(51984+X)<>PEEK(51985)THEN Z=1
  204. 2040 IF PEEK(52000+X)<>PEEK(52001)THEN Z=1
  205. 2050 IF PEEK(52016+X)<>PEEK(52017)THEN Z=1
  206. 2060 IF PEEK(52032+X)<>PEEK(52033)THEN Z=1
  207. 2070 IF PEEK(52048+X)<>PEEK(52049)THEN Z=1
  208. 2080 IF PEEK(52064+X)<>PEEK(52065)THEN Z=1
  209. 2090 IF Z=1 THEN F=0:RETURN
  210. 2100 NEXT X
  211. 2110 PRINT"     WAY TO GO, YOU'RE FINISHED !!!!! ":IF SCR<30 THEN GOTO 2125
  212. 2120 IF VAL(TI$)<VAL(R$) THEN R$=TI$
  213. 2125 G$=TI$:F=1:G=0:TI$="000000"
  214. 2130 PRINT"BEST TIME " MID$(R$,3,2)":"RIGHT$(R$,2)
  215. 2140 GOSUB 1940
  216. 2150 RETURN
  217.